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:CEVL.SRCJWORKQ.B32;1 (1) 


MODULE workq (IDENT = ‘'v04-000') = 
BEGIN 


\ 
RRR R EEE ERAAA ARATE AERTS 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'e DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
iw ALL RIGHTS RESERVED. 


:® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:® ot |e THEREOF MAY NOT BE PROVIDED OR OTHERWISE 


os 
® 
® 
® 
® 
® 
® 
® 
*® 
' * 
ie TRANSFERRED. - 
® 
* 
® 
® 
® 
® 
* 
* 
® 
® 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NO 
‘* eampoket itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIP 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
S enahenpenenbannnnenonqnnnneheneenonenbonsbenenennenett eeeeeeteeeeeeeeeenee 


Qu 
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; FACILITY: DECnet V2.0 event logger 
ABSTRACT: 


This module contains routines to manage the internal 
work queue. 


ENVIRONMENT : 
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VAX/VMS operating system. unprivileged user mode, 


Soooooooooo 
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poe AUTHOR: Tim Halvorsen, June 1980 | 
B26 ! Modified by: 
0044 v03-001 RPGO0O1 Bob Grosso 24-Feb-1983 | 
0045 Make two minor fixes. There was one piace where a 

Beg deallocate_vm was done before the REMQUE, and another 

944 where there was no deallocation after the REMQUE. 
004 | 


7 
Include files 


LIBRARY ‘SYSS$LIBRARY:STARLET'; ' VAX/VMS common definitions 
REQUIRE ‘SYSSLIBRARY:UTILDEF'; ' Misc. VMS definitions 


NOONE WN 0 OVO UE WN 20 ODNO UE WN $ O ODNOAUFWN OO DNOUS WR “OOONOUE WR 
a kk a kk kt kt tt tt IO 


PUPPIES BB BB EEE BE EWA NI WI NIN PO NONONUNINNINDDD 2 2 OS OS OS 


0233 1 REQUIRE ‘LIBS:WQDEF'; 


iessSoc}984 94:30:8 


! Structure definitions 
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Disk VMS 


Liss 
WASTE 


=32 
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3 
1e-se -1984 01:39: VAX-11 Bliss-32 V4.0-74 Page 3 
12-8087 38 93:33:88 TEX SUMEAARTERSEEVL Sec SWORKO.B32;1 ° (2). 
! 
Table of contents 


FORWARD ROUTINE 
k Add a work item 

Dequeue and execute a work item 

Add a timed work item 


wkq$Sadd_timed_work, 
Cancel timed work item 


wkqScancel_timed_work 


LESRENLSSSLE 


yoe~000 

a ) 

ea 1 

3 88 1 

: 66 1 

; & : 

ig | 

; +4 : timer_ast: NOVALUE ; Timer AST routine 

fees p 1! 

ee. 0&8 1 ! BUILTIN functions 

fep . 0o9 1! 

; 10 1 

; 75 11. 1 BUILTIN 

eee. \§ 1 INSQUE, ' INSQUE instruction 

3 7 031 1 MQUE ; ! REMQUE instruction 

; 0314 1 

; #79 0315 1! 

; 80 8 1 : : OWN storage 

3 b: 0318 1 

3; § 3384 1 

; «684 0320 1 work_queue: VECTOR (2) ! Work queue Listhead 

3; 68S B85; 1 INITIAL (work_queue ,work_queue), : 

; (86 0 é 1 t imed_queue: VECTOR [2] ' fimed"work queue Listhead 
; 0325 1 INITIAL (timed_queue,t imed_queue) ; 

BR BBD, 

: 90 bs $ 1 ' External routines 

: 4 03 i : : 

; 35 0859} EXTERNAL ROUTINE 

; 94 0330 1 Lib$get_vm: ADDRESSING MODE (GENERAL) ' Allocate storage 
; 0331 1 Lib$free_vm: ADDRESSING_MODE (GENERALS ; ! Deallocate storage 


nn 


gO RMS TN Aig I Se let A RIOR CoeR acne An ee NR Ee - 


3 
1$-sep-19 4 01:39: VAX-11 Bliss-32 V4.0-74 Page 4 LPM 
14-Sep-1984 93:38:88 DL eKSVMEMASTERSCEVL SRCSWORKO.B32; 1 : (3) 
; a7 ; } GLOBAL ROUTINE wkq$add_work_item (action_routine, argl, arg2) = MOD 
: gg 1 leon i 
; 100 7 oe 
: 101 § ,: This routine adds a single work item to the work go. 
; 186 i : A SWAKE is performed for the first work item added. 
; ee 4 : ! Inputs: 
Ee ee action_routine = Address of routine to call to perform work. 
; 138 0 tg : argi/2 = Arguments to be passed to action routine when called. 
; 109 0 4 1 ! Outputs: 
; 110 fF 
; 991 0 $ 1} routine = status code 
3 Ng 1 !ee- 
eS 48 1 
; (116 0349 BEGIN 
3 6115 0350 
. 118 0351 LOCAL 
; 1 0 26 Length, ! Length of allocate/deallocation 
; 133 er entry: REF BBLOCK; ! Address of work queue entry 
: 139 0355 Length = wae$c_length; ' Length of a work queue entry 
: 121 0356 return_if_error(LIBSGET_VM(length,entry)); ! Allocate entry 
; 138 tea CHSF ILE (Ol wae$c_length,.entry); ' Zero the entry 
124 $389 entry Cwae$l_pc] = .action_routine; ! Store address of action routine 
3 \¢3 0360 entry Cwae$l_argi]) = .argl; ! then store 2 arguments ; 
; iss Bees entry Cwqe$l_arg2) = .arg2; ! assume both arguments must be given 
; 4 0368 IF INSQUE(.entry, .work queue [1]) ! Queue entry at tail of List 
; 130 b3es SWAKE(); ' If first, wakeup process 
3 131 0366 
oe 4 0367 RETURN true; 
3 Y Bee 
; «134 0369 1 END; 


-TITLE WORKQ 
-IDENT \V04-000\ 


-PSECT SOWNS,NOEXE,2 
00000000" 00000000" 00000 WORK_QUEUE: 


-ADDRESS WORK_QUEUE, WORK_QUEUE ; 
00000000" 00000000° 00008 TIMED_QUEUE: 
-ADDRESS TIMED_QUEUVE, TIMED_QUEUE : 
.EXTRN LIBSGET_VM, LIBSFREE_VM 
~EXTRN SYSSWAKE 
-PSECT SCODES,NOWRT,2 
007¢ 00000 -ENTRY WKQSADD_WORK_ITEM, Save R2,R3,R4,R5,R6 3 0332 | 
SE 08 C2 00002 SUBL2 #8, SP : | 


a R.. 
Ko 16-Sep-1984 9:5 VAX=-11 Bliss-32 V4.0-74 Page 5 
¥O4~000 Wea eea She Ph se ee ee ealeteae tir sheSuonca.ese:1 8% cs} 
04 AE 18 DO 0 MOVL #24, LENGTH : 0355 
SE DD PUSHL SP : 0356. 
08 A F PUSHAB a 3 
000000006 i : i : CALLS é ations vm : 
. 0 0001 MOVL Eth R : 0357 
18 00 6£ $5 C i movcsS #0, (gp). #0, #24, (RO) ; | 
0 A 04 AC 7 MOVQ ACTION_ROUTINE, 8(R6) : 0359. 
A coe 6 MOVE ARGS, 6(R6) : a0 
0000" oF INSQUE (R6). @WORK_QUEUE+4 F 
BNEQ 1$ : 
; C CLRQ. = (SP) > 0365. 
000000006 90 0 FB 0 CALLS #2, SYSSWAKE : | 
01 p 0038 1$: MOVL #1. RO ; 0367) 
4 OOO3E 28: RET > 0369 


; Routine Size: 63 bytes, Routine Base: $CODE$ + 0000 


¥O4=000 


See Oe ee Oe Oe oe OH Oe OH Oe OH Oe Oe OH Oe Oe Oe Oe ee Oe Be Oe Oe Os Oe Oe ee oe OHS Se eee 
el lt el el el el cael ell lt el lt lt lt cll lt ls elt lt lt cell ll 
CRD = O O00 GOA PUD O00 NOUN PUA) 2 OOOO ae 


COnouW 


; Routine Size: 


3 
1b-se -1984 01:39: VAX-11 Bliss-32 V4.0-74 Page 6 
12-90b= 1 88e bet eet DISKSVMSMASTER: CEVL.SRCJWORKQ.B32;1 . (4) 


GLOBAL ROUTINE wkq$do_work_item = 


This routine dequeves the next work item to be performed 
and calls the action routine associated with the item. 


! 

1 

; 

Inputs: 

| None 
i Outputs: 
routine = True if successful, false if nothing in queue 


length, ! Length of work queue entry 
entry: REF BBLOCK; ! Address of entry in queue 


OO CODD ODODWDOOON NANNY 


BDNAWNE WO OONA NEAR O OOO WO 


WWIWWWAI AAA AN 


IF REMQUE(.work_queuve [0], entry) ! Remove first entry from queue 
RETURN false; ! If none, return unsuccessful 
(.entry Cwqe$l_pcl)(.entry Cwaqe$l_arg'], .entry Cwqe$l_arg2]); ! Call routine 


oooovon 


length = waere Length; 


DOOOCOSCOCCOCCCCOOOODOOCOOCOOOOOOOOO0O 


PAWN 


POPP POROPONOMOPURONONONOY — = ss 
- @w.- ° 
om 
o Oo 
> oe 
YY = 


Ms LIBSFREE_VM(Length, entry); ! Deallocate entry 
0401 RETURN true; 
pes 
040 END; 


0000 00000 .ENTRY WKQSDO_WORK_ITEM, Save nothing : 0370) 
5E 04 C2 9000¢ SUBL2 P ; | 
7E 0000' DF OF 9005 REMQUE avORK QUEUE , ENTRY > 0392 | 

0 bo 990¢ MOVL ENTRY RO > 0396 
7 Oc AO 7D 0000F mova (ROS, =(SP) ; 
08 B80 02 FB 00 13 CALLS #2, a8 (RO) ; 
06 AE 18 D0 0001 MOVL #24, LENGTH : 0398 
SE dD 00018 PUSHL § : 0399 
08 AE OF 901 PUSHAB LENGTH : 
000000006 90 0 FB CALLS #2, LIBSFREE_VM ; | 
0 1 p 00 MOVL #1. RO > 0401 
4 A RET ; 
50 D4 00028 18 CLRL =. RO > 0403 
04 00020 RET : 


46 bytes, Routine Base: S$CODES + 003F 
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#3 
36 


; 17) 406 } GLOBAL ROUTINE wkq$Sadd_timed_work (action_routine, arg, arg2, time, reqid) = %SE 
if 406 in rm 
: 175 rts: 1 i This routine adds a timed work item to the work queue iF 
; 176 409 1! to be executed at the specified time. Any outstanding : 

, 7 410 1! work item for the same reqid is canceled before the new . 

; 178 ai) : one is added. 
PIB RAE | | toes : 
; 186 415 1! action_routine = Address of routine to call to perform work. 

: 3 213 1: argi/2 = Arguments to be passed to action routine when called. : 

> «186 Wy oY time = Delta or absolute time at which the work item should be done. : 

3s 185 Beis 1! reqid = Request identification to be associated with the time based } 

: 186 0419 1! work item. There may be no more than one work item in the : 

‘ + H4 Be : work queve with this request id. | : 

; +4 Be ; : Outputs: 

> 191 0424 1! routine = status code 

3 135 0425 1 !<-- : 

3; (19 0426 1 | 
; 196 0427 BEGIN : 

; «6195 0428 ' 
: 199 be 3 me t 

3 status, ‘ 

; 198 0431 Length, ' Length of allocate/deallocation . 

: 199 oh {4 entry: REF BBLOCK, ' Address of work queue entry : 

3 soo ot p: REF BBLOCK; ! Address of entry being scanned | : 

; 203 0435 length = waete longeni ' Length of a work queue entry 

: 20 0436 return_if_error(LIBSGET_VM(Length,entry)); ! Allocate entry : 

: spe oR t4 CHSF ILE (Ol wqe$c_length, entry); ! Zero the entry : 

: $06 0439 entry Cwae$l_pc] = .action_routine; ! Store address of action routine 

; 207 0440 entry wae! argl) = .argl; ! then store 2 arguments : : 0 
; 208 0441 entry Cwae$l_arg2] = .arg2; ' assume both arguments must be given | : 

g $08 on entry Cwae$l_reqid] = .reqid; ' Store request aa 
: 211 beee wkq$cancel_timed_work(.reqid); ! Cancel outstanding request (if any) 

; Hy pees INSQUE(.entry, .timed_queue [1]); ! Insert at end of queue 

; i Beds status = SSETIMR(DAYTIM=.time, ASTADR=timer_ast, REQIDT=.reqid); 

: 317 Bees if a -Status ! If error occurred setting timer, 

: 215 0452 BEGIN 

: 220 45 yer eget BE entry); ' Remove entry from queue 

3 $3 0454 LIBSFREE_VM(length,entry); ! Deallocate the storage 

3 § 0455 RETURN .Status; ' and return with status 

oo pea 

> 225 bes RETURN true; 

; $$ 0460 1 END; 


4H 3 
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-EXTRN SYSSSETIMR 


007 00 .ENTRY WKQSADD_TIMED_WORK, Save R2,R5.R4,R5,R6 : 

5E 98 C 0 SUBL2 3 

06 AE 18 00 00 9 OVL #24, LENGTH : 

SE DD 00009 PUSHL SP : 

08 AE 9F 00008 PUSHAB LENGTH : 

000000006 00 9 FB 000 CALLS #2, L1BSGET_VM : 
4 E 901 STATUS, 2$ : 

6 6— DO 0001 MOVL. ENTRY, R6 : 

18 00 6E 00 2c 20035 movCS #0, (SP), #0, #24, (RO) : 
08 Ab 04 AC 7D 0031 MOVQ ACTION_ROUTINE, 8(R6) : 

10 A6 Oc aC DO 00026 MOVL ARG2, T6(R6) : 

14 Ab 146 Ac 00 000¢8 MOVL  REQID, 20(R6) : 

14 AC DD 00030 PUSHL REQID ; 

0000v CF 01 FB 00033 CALLS #1, WKQSCANCEL_TIMED_WORK : 
0000' oF 66 OE 00038 INSQUE (R6), a@TIMED_QUEUE+4 : 

16 AC DD 9003p PUSHL REQID : 

0000v CF 9F 00040 PUSHAB TIMER_AST : 

10 AC DD 00044 PUSHL TIME : 

7E 04 00047 CLRL. =(SP) : 

000000006 0 04 FB 00049 CALLS #4, SYSSSETIMR F 
5 50 4 00050 MOVL RO. STATUS 3 

1 52 £8 00053 BLBS STATUS, % ; 

7E 9& OF 00056 REMQUE @ENTRY. ENTRY : 

SE DD 00059 PUSHL SP ; 

08 AE 9F 00058 PUSHAB aa : 

000000006 00 02 FB 00058 CALLS ‘ “L18senee _vM ; 
50 52 dO 0006 MOVL , RO : 

04 00068 RET : 

50 01 DO 00069 18: MOVL . RO : 

04 0006C 2$: RET : 


; Routine Size: 109 bytes, Routine Base: $CODE$S + 006D 


Ca 


3 
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v04-000 ease 188s FSi Sk8s |W eabwtalsteacctuc saeSworxo.e32-1 2% «ho. 
; ; red. } GLOBAL ROUTINE wkcScancel_timed_work (reqid) = 
: $3 ie pm | ROU 
: é 64 1: 1e4 
: 465 1! This routine cancels a timed work item in the work queue ; 6 
; ? re ! from being executed at the specified time. : 
4 i ‘ i 
489 : Inputs: | i 
: ; beet : reqid = Request identification associated with the work item. 
; re bers : Outputs: | 
3 : 0475 : ! routine = True if request dequeued, false if not found in work queue. | 
5 264 476 1 i 
3 45 be BEGIN a 
: 346 0478 trial 
: $03 368 Tength, | i 
; $? 0683 p: REF BBLOCK; ! Address of entry being scanned i 
: 251 048 length = wae$c_length ! Length of a work queue entr 
; 26 Beee p ot ined queue (0): ! Get vat first oatry in clined quews 
: 254 048 WHILE .p NEQ timed_queue [0] ! Until the end of List 
ae oe a ee 
; 57 0489 IF .p Cwae$l_reqid]) EQL .reqid ' If already a request with this reqid, 
338 TED BO oq Sepa Gases: 
: 0 0492 4 SCANTIM(REQIDT=.reqid); ' Cancel the previous request 
3 $e) 0493 4 REMQUE(.p, p); ! Remove entry from queue 
3 o¢ 0494 4 LIBSFREE_VM(Length.p); ! Dealiocate the storage 
: sor Beg2 $ ae true; ' Return successful | 
: ses 0497 3 pe -P twaeSt_flink); ! Skip to next in chain | 
; $86 0499 me | 
: $o8 Beot RETURN false; ! Indicate request not in work queue | 
: $$ 0502 1 END; 
-EXTRN SYSSCANTIM 
0004 00000 .ENTRY WKQSCANCEL_TIMED_WORK, Save R2 > 0461 | 
18 DD 00002 PUSHL #24 > 0483 | 
0000* CF DD 00004 PUSHL TIMED_QUEUE 3; 0484 
3 6E +4 0008 1$: MOVL R 3; 0486. 
5 0000' CF 9E 0008 MOVAB TIMED_QUEUE, RO ; | 
50 52 D1 0001 CMPL Re, RO : 
2A 13 0001 BEQL 3 
06 = «AC 14 A2 01 0001 CMPL O(R2), REQID 3 0489 
1F 12 OOO1A BNEQ : | 
7E 04 OOOIC CLRL -(SP) ; 0492. 


04 
000000006 90 


7 
000000006 98 _ p 
9 
5 


; Routine Size: 66 bytes, Routine Base: SCODE$S + OODA 


ecevis OSRCSWORKA. B32;1 


1b-5e Sep-1 VAX-11 Bliss 
12286871382 93:38: a PT KSVMe HA 
DD 0001 PUSH 

FB CALL SYSSCANTIM 
OF REMQUE ( mm, P 

po 8 PUSHL SP 

F PUSHAB LENGTH 

FB CALLS fe, L JBSFREE_vM 
p MOVL #1. R 

4 A RET 
DD B 2%: PUSHL aP 

11 00030 BRB 1$ 
D4 OO03F 3S: CLRL ~—_ RO 
04 00041 RET 


a «22 


oa 
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3 f 93 ! ROUTINE timer_ast (reqid): NOVALUE = 

: 27% 5 1 fe-- 

; e275 1! 

; e7 5 1! This AST is called when a timer has run out for a work 

3; a 208 1! ueue item. The action routine associated with the 

3 mB 44 : tem is called. 

BR BY | ime 

; Ho AF : reqid = Request identification for this timer request 

; Bs 0313 : Outputs: 

; 286 0317 1 i None 

; 7 518 1 !--- 

; 8 0519 1 

: 289 0520 BEGIN 

; 290 0521 

: 291 05 ; LOCAL 
; 4 05 entry: REF BBLOCK, ! Address of work entry begin scanned 

3 4 82 : Length; ! Length of work queue entry 

: 3.44 5 entry = .timed_queue (0); ! Get first timed entry 
; 344 B2 we -entry NEQ timed_queue [0] ! Until end of queue 

; 99 0380 BEGIN 

3 4 bees 3 i egheate EQL .entry Cwaqe$l_reqid] ! If matching item is found, 

; 30¢ $33 4 BEGIN 

3 soe bese : REMQUE‘.entry, entry); ' Remove entry from queue 

; 305 0536 4 wkq$add_work_item(.entry Cwqe$l_pc], ! Insert onto normal work queue 
; $09 0537 4 . “entry Cwqe$l aroli. - a ; | 
3 4 Baee ? -entry Cwqe$l"arg2)); 
; 309 0540 4 ioe th = Vattss Length; 
; $19 O38) . Lis ance vM(Length, entry); ! Deallocate entry 

; 312 b80§ ; ; | . . | 
3 $12 bee entry =" * entry Cwqe$l_flink]; ! Skip to next entry in chain | 
: 315 4 . | 
: 3 Beco 5 

3s sir 0548 : A timer has run out without a corresponding work item in the queue. 

; Ys tr oe the timer AST. | 
: 320 0551 2° | 
$ $) O326 RETURN; | 
; $8 0554 1 END; 


rhess S$ep-1984 :39: VAX=11 Bliss-32 V Page 13. 
bat aet 1 93:33:88 DISK KSVMGH TER: ctw’ She WORKQ.B32;1 eo 
0000 00000 TIMER_AST: 
vores Save nothing ; 0503. 
SE 04 C2 0 2 SUBL2 so # : | 
0000' CF OD PUSHL TIMED_QUEUE : 526 
1 6E ty 009 1$: MOVL ENTRY; R1 : 0528. 
0 0000" CF C MOVAB TIMED QUEUE, RO : | 
1 p 11 CMPL = R'1, RO : | 
E 14 BEQL «6s 3$ : 
16 «AI 04 aC D1 16 CMPL  REQID, 20(R1) + 0531 
23 12 00018 BNEQ  2$ : 
$f 61 OF 0001D REMQUE (R1), ENTRY + 0534 
3 of pO 99 MOV ENTRY R : 0538 
E 0c Aad 7D MOV 2(ROS, =(SP? : 0537 
08 AO DD 000 PUSHL  8(RO) : 0536 
FEBS CF 03 FB OO02A CALLS #3, WKQSADD_WORK_ITEM : 
04 AE 1B DO 0002F MOVL #24, LENGTH + 0540 
SE DD 00033 PUSHL SP > 0541 
08 AE 9F 00035 PUSHAB LENGTH : 
000000006 00 02 FB 00038 CALLS #2, LIBSFREE_VM : 
04 0003F RET : 
9E DD 00040 2$ PUSHL @ENTRY : 
CS 11 00042 BRB 1$ : 
04 00044 3$ RET ; 


; Routine Size: 69 bytes, Routine Base: $CODE$ + 011C 


Qoooo 
MVM 
Winn San 
forw 


DISKSVMSMASTER: aa Nie ocr WORKQ.832;1 (8) 


| H 3 
WORKG 16-Sep-1986 01:39:58  VAX-11 Bliss-32_v Page 14 
04-000 1or0p- 1 3be 93 3R 588 gt} a 

' END 


PSECT SUMMARY 


. | 
i Name Bytes Attributes | 
: SOWNS 16 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC. ALIGN(2) 
3; SCODES 353 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

| 
: Library Statistics | 
: eoocecece Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
5 
3 _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 10 0 581 00:01.0 

| 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:WORKQ/OBJ=OBJ$:WORKQ MSRC$:WORKQ/UPDATE=(ENH$:WORKQ) | 


: Size: 353 code + 16 data bytes 


; Run Time 00:08.8 
s phn Time: 00:17.8 
3; Lines/CPU Min: 773 
; omens Ate Bayar 16561 
; fs d: 67 pages 
; — atten Complete 
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